module Prospecto (Prospecto, nuevoPR, personaPR, pretensionesPR)

where

import Tipos
import Persona

data Prospecto =  PR Persona Sexo Edad Edad deriving (Show, Eq)

nuevoPR :: Persona -> Sexo -> Edad -> Edad -> Prospecto
nuevoPR p s e1 e2 = PR p s e1 e2

personaPR :: Prospecto -> Persona 
personaPR (PR p s e1 e2) = p 

pretensionesPR :: Prospecto -> (Sexo , (Edad, Edad))
pretensionesPR (PR p s e1 e2) = (s, (e1, e2))


--hola mundo del orto